home *** CD-ROM | disk | FTP | other *** search
- property BeginVis, EndVis
-
- on new me
- return me
- end
-
- on getPropertyDescriptionList me
- description = [:]
- addProp(description, #BeginVis, [#default: 0, #format: #integer, #comment: "Begin of Vis"])
- addProp(description, #EndVis, [#default: 0, #format: #integer, #comment: "End of Vis"])
- return description
- end
-
- on mouseDown me
- if EndVis <> 0 then
- vis(BeginVis, EndVis)
- else
- vis(BeginVis)
- end if
- end
-
- on vis StartSprite, endSprite
- theSprite = StartSprite
- if endSprite = VOID then
- sprite(theSprite).visible = 1
- else
- repeat with theSprite = StartSprite to endSprite
- sprite(theSprite).visible = 1
- end repeat
- end if
- end
-